home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Deutsche Edition 1
/
Deutsche Edition 1.iso
/
bavarian
/
091-100
/
093_vorspann3
/
titlemaker
< prev
next >
Wrap
Text File
|
1993-11-04
|
1KB
|
50 lines
'*******************************************************
'*** Transfer Graphicraft > SCA-Titlemaker-Format ***
'*** Copyright (C) 1986 by SCA ***
'*** ***
'*** Dieses Programm darf frei weitergegeben werden, ***
'*** unter der Bedingung dass es vollstaendig ***
'*** und in seiner jetzigen Form kopiert wird !!! ***
'*** ***
'*** Jede gewerbliche Nutzung nur mit schrift- ***
'*** licher Genehmigung der Autoren !!! ***
'*******************************************************
CLEAR ,65000& :'Speicher reservieren
DEFINT a-z
DIM a$(200,4)
OPEN ":Vorher" FOR INPUT AS #1
OPEN ":SCA/picture" FOR OUTPUT AS #2
INPUT "Cycle-Startfarbe (0-31) ";canf
INPUT "Anzahl Cycle-Farben (1-32) ";clen
INPUT "Cycle-Geschwindigkeit (1-255) ";cspd
a$=INPUT$(48,1) :'Headeranfang ueberlesen
c$=INPUT$(96,1) :'Farben einlesen
a$=INPUT$(42,1) :'Rest des Headers ueberlesen
FOR y = 0 TO 199
FOR i = 0 TO 4
a$(y,i)=INPUT$(40,1)+CHR$(0)+CHR$(0)
NEXT
LOCATE 10,35:PRINT y
NEXT
PRINT #2,LEFT$(c$,3*32); :'32 Farben schreiben
PRINT #2,CHR$(canf);CHR$(clen);CHR$(cspd); :'Cycle-Stuff schreiben
FOR i=0 TO 4
FOR y=0 TO 199
PRINT #2,a$(y,i);
NEXT
LOCATE 11,35:PRINT i
NEXT
Fertig:
CLOSE#2:CLOSE#1
SYSTEM